home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 May / macformat-024.iso / Shareware City / HyperCard / hyper-info-20-hc / HyperInfo Stacks / List (Collection) / cards.xml < prev    next >
Encoding:
Text File  |  1994-12-30  |  7.7 KB  |  143 lines
  1. card_2861.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>2861</id>
  6.     <filler1>0</filler1>
  7.     <cantDelete> <true /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <owner>2649</owner>
  11.     <link rel="stylesheet" type="text/css" href="stylesheet_3262.css" />
  12.     <part>
  13.         <id>1</id>
  14.         <type>field</type>
  15.         <visible> <true /> </visible>
  16.         <dontWrap> <true /> </dontWrap>
  17.         <dontSearch> <true /> </dontSearch>
  18.         <sharedText> <false /> </sharedText>
  19.         <fixedLineHeight> <false /> </fixedLineHeight>
  20.         <autoTab> <false /> </autoTab>
  21.         <lockText> <true /> </lockText>
  22.         <rect>
  23.             <left>0</left>
  24.             <top>16</top>
  25.             <right>512</right>
  26.             <bottom>496</bottom>
  27.         </rect>
  28.         <style>scrolling</style>
  29.         <autoSelect> <true /> </autoSelect>
  30.         <showLines> <false /> </showLines>
  31.         <wideMargins> <false /> </wideMargins>
  32.         <multipleLines> <false /> </multipleLines>
  33.         <reservedFamily> 0 </reservedFamily>
  34.         <selectedLines>
  35.             <integer>4</integer>
  36.         </selectedLines>
  37.         <textAlign>left</textAlign>
  38.         <font>Courier</font>
  39.         <textSize>10</textSize>
  40.         <textStyle>bold</textStyle>
  41.         <textHeight>13</textHeight>
  42.         <name>Index</name>
  43.         <script>on mouseUpset the cursor to busyput the selectedText of the target into theIndexif      ((theIndex is "*") or (theIndex is "‚Ä¢")) thenput flipThem(bg fld "Flip") into nullelse if (theIndex is not "") thenput sayIt(theIndex) into nullif      ("$Directory$" is in "$" & (word 1 of the short name of this stack) & "$") thenif ((the optionKey is down) or (the shiftKey is down)) thenput goIt(theIndex) into nullelselock messageslock screenput "*" into theNamesput the itemDelimiter into originalSettingset the itemDelimiter to ":"repeat with i = (the number of this cd + 1) to the number of cdsif (theIndex is "*All*") thenif (item 2 of the short name of cd i is not "") thenput theNames & return & (item 2 of the short name of cd i) into theNamesend ifelseif ("$" & theIndex & ":" is in "$" & the short name of cd i) thenput theNames & return & (item 2 of the short name of cd i) into theNamesend ifend ifend repeatset the itemDelimiter to originalSettingput theNames & return & "‚Ä¢" into cd fld "Names"send ("sort lines of cd fld " & quote & "Names" & quote & " " & bg fld "Flip" & " international") to HyperCardunlock messagesunlock screenend ifelse if ("$Read$"      is in "$" & (word 1 of the short name of this stack) & "$") thengo first cd of bg "2"put the itemDelimiter into originalSettingset the itemDelimiter to ":"put stackFolder() & ":" into theFolderput item 1 of theFolder into theFolderset the itemDelimiter to "("put item 2 of the short name of this stack into theFileset the itemDelimiter to ")"put item 1 of theFile into theFileset the itemDelimiter to originalSettingput theIndex into bg fld "Title"open      file theFolder & ":" & theFile & ":" & theIndexread from file theFolder & ":" & theFile & ":" & theIndex until endclose     file theFolder & ":" & theFile & ":" & theIndexput line 1 to 39 of it into bg fld "Text"put "1" into bg fld "Read"elseput goIt(theIndex) into nullend ifend ifend mouseUp</script>
  44.     </part>
  45.     <content>
  46.         <layer>background</layer>
  47.         <id>4</id>
  48.         <text>(Index)</text>
  49.     </content>
  50.     <content>
  51.         <layer>card</layer>
  52.         <id>1</id>
  53.         <text>*CD-ROM:DoneCD-ROM:ToDoSystem Info | Macintosh HD:‚Ä¢</text>
  54.     </content>
  55.     <content>
  56.         <layer>background</layer>
  57.         <id>3</id>
  58.         <text>*CD-ROM:DoneCD-ROM:ToDoSystem Info | Macintosh HD:‚Ä¢</text>
  59.     </content>
  60.     <name>(Index)</name>
  61.     <script>on closeCardif ("*" is not in the short name of this stack) then put cd fld "Index" into bg fld "Text"pass closeCardend closeCardon openCardset the cursor to busylock messageslock screenif (bg fld "Text" is "") thenput "*" into theIndexif      ("$Directory$" is in "$" & (word 1 of the short name of this stack) & "$") thenput theIndex & return & "*All*" into theIndexput the itemDelimiter into originalSettingset the itemDelimiter to ":"repeat with i = (the number of this cd + 1) to the number of cdsif (item 2 of the short name of cd i is "") thenput theIndex & return & (item 1 of the short name of cd i) into theIndexend ifend repeatset the itemDelimiter to originalSettingsend ("mouseUp") to cd fld "Index"else if ("$Read$"      is in "$" & (word 1 of the short name of this stack) & "$") thenput the itemDelimiter into originalSettingset the itemDelimiter to ":"put stackFolder() & ":" into theFolderput item 1 of theFolder into theFolderset the itemDelimiter to "("put item 2 of the short name of this stack into theFileset the itemDelimiter to ")"put item 1 of theFile into theFileset the itemDelimiter to originalSettingput theIndex & return & listFiles(theFolder & ":" & theFile,) into theIndexelserepeat with i = (the number of this cd + 1) to the number of cdsput theIndex & return & (the short name of cd i) into theIndexend repeatend ifput theIndex & return & "‚Ä¢" into cd fld "Index"send ("sort lines of cd fld " & quote & "Index" & quote & " " & bg fld "Flip" & " international") to HyperCardrepeat with i = 1 to the number of cd fldsif (the style of cd fld i is scrolling) then set the scroll of cd fld i to 0end repeatelseput bg fld "Text" into cd fld "Index"end ifif ("*" is in the short name of this stack) thensend (bg fld "Text") to HyperCardhide cd fld "Index"send ("doMenu " & quote & "Close Stack" & quote & "," & quote & "File" & quote) to HyperCardend ifchoose browse toolunlock messagesunlock screen with visual effect dissolve fastpass openCardend openCard</script>
  62. </card>
  63.  
  64.  
  65. card_4505.xml
  66. <?xml version="1.0" encoding="utf-8" ?>
  67. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  68. <card>
  69.     <id>4505</id>
  70.     <filler1>0</filler1>
  71.     <cantDelete> <true /> </cantDelete>
  72.     <showPict> <true /> </showPict>
  73.     <dontSearch> <false /> </dontSearch>
  74.     <owner>3586</owner>
  75.     <link rel="stylesheet" type="text/css" href="stylesheet_3262.css" />
  76.     <content>
  77.         <layer>background</layer>
  78.         <id>3</id>
  79.         <text>CD-ROM:Done</text>
  80.     </content>
  81.     <content>
  82.         <layer>background</layer>
  83.         <id>2</id>
  84.         <text>‚Ä¢ Dinosaur Safari</text>
  85.     </content>
  86.     <name>CD-ROM:Done</name>
  87.     <script></script>
  88. </card>
  89.  
  90.  
  91. card_4047.xml
  92. <?xml version="1.0" encoding="utf-8" ?>
  93. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  94. <card>
  95.     <id>4047</id>
  96.     <filler1>0</filler1>
  97.     <cantDelete> <true /> </cantDelete>
  98.     <showPict> <true /> </showPict>
  99.     <dontSearch> <false /> </dontSearch>
  100.     <owner>3586</owner>
  101.     <link rel="stylesheet" type="text/css" href="stylesheet_3262.css" />
  102.     <content>
  103.         <layer>background</layer>
  104.         <id>3</id>
  105.         <text>CD-ROM:ToDo</text>
  106.     </content>
  107.     <content>
  108.         <layer>background</layer>
  109.         <id>2</id>
  110.         <text>‚Ä¢ The Family Doctor</text>
  111.     </content>
  112.     <name>CD-ROM:ToDo</name>
  113.     <script></script>
  114. </card>
  115.  
  116.  
  117. card_4302.xml
  118. <?xml version="1.0" encoding="utf-8" ?>
  119. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  120. <card>
  121.     <id>4302</id>
  122.     <filler1>0</filler1>
  123.     <cantDelete> <true /> </cantDelete>
  124.     <showPict> <true /> </showPict>
  125.     <dontSearch> <false /> </dontSearch>
  126.     <owner>3586</owner>
  127.     <link rel="stylesheet" type="text/css" href="stylesheet_3262.css" />
  128.     <content>
  129.         <layer>background</layer>
  130.         <id>3</id>
  131.         <text>System Info | Macintosh HD:</text>
  132.     </content>
  133.     <content>
  134.         <layer>background</layer>
  135.         <id>2</id>
  136.         <text>1994-12-31---------------------------------------------------------------------------------‚Ä¢ Go Simon Sunatori  ‚Ä¢ HyperInfo Folder    ‚Ä¢ HyperInfo    ‚Ä¢ HyperInfo Stacks</text>
  137.     </content>
  138.     <name>System Info | Macintosh HD:</name>
  139.     <script></script>
  140. </card>
  141.  
  142.  
  143.